home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 001-010 / amok06 / mathlib / mathlibr3.def < prev    next >
Text File  |  1993-11-04  |  1KB  |  47 lines
  1. (**********************************************************************
  2.  
  3.     :Program.       MathLibR3.def
  4.     :Contents.     Mathematik-Bibliothek für Vektoren und Matrizen im R³ 
  5.     :Remark.     WANTED: Besserer Algorithmus für Matrizen-Inversion 
  6.     :Author.        Nicolas Benezan [bne]
  7.     :Address.    Postwiesenstr. 2, D7000 Stuttgart 60
  8.     :Phone.      711/333679
  9.     :Copyright.  Public Domain
  10.     :Language.      Modula-2
  11.     :Translator. M2Amiga AMSoft
  12.     :ModHistory. V1.0 [bne] 30.06.88 (first PD version, Amok#4)
  13.     
  14. **********************************************************************)
  15.  
  16. DEFINITION MODULE MathLibR3;
  17.  
  18. FROM SYSTEM    IMPORT FFP;
  19.  
  20. TYPE    Scalar=FFP;
  21.     Vector3=RECORD
  22.           x:Scalar;
  23.           y:Scalar;
  24.           z:Scalar;
  25.         END;
  26.         Matrix3=ARRAY [1..3],[1..3] OF Scalar;
  27.  
  28. PROCEDURE Add3(V1,V2:Vector3;VAR Ve:Vector3);
  29.   
  30. PROCEDURE Sub3(V1,V2:Vector3;VAR Ve:Vector3);
  31.   
  32. PROCEDURE Smul3(s:Scalar;V:Vector3;VAR Ve:Vector3);
  33.   
  34. PROCEDURE Skprod3(V1,V2:Vector3):Scalar;
  35.     
  36. PROCEDURE Xprod3(V1,V2:Vector3;VAR Ve:Vector3);
  37.   
  38. PROCEDURE Abs3(V:Vector3):Scalar;
  39.   
  40. PROCEDURE Trans3(VAR M:Matrix3;V:Vector3;VAR Ve:Vector3);
  41.   
  42. PROCEDURE Invert3(VAR M:Matrix3):BOOLEAN;
  43.   
  44. PROCEDURE Mmul3(M1,M2:Matrix3;VAR Me:Matrix3);
  45.  
  46. END MathLibR3.
  47.